Top 10k strings from Music File (19xx)(Jim Hossack).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 z$="MUSIC_"+x$
   2 ;"Searching for Composer"
   2 ;"Next line coming up.....";
   2 ;"MUSIFILE"
   2 35792+256*
   2 23635+256*
   2 "MUSIFILE"
   2 "8";"Entry No.";
   2 "35826"+a+j*
   1 t$="Vinyl LP Number "
   1 t$="Compact Disk Number "
   1 t$="Cassette Number "
   1 letters) ";s$:
   1 existing file, but any additionsare OK.
   1 a$(g);" ";y$;"  ";x$;"  ";t$;e
   1 Press 1 to continue,2 to return.      3 for a specific entry.   
   1 Please wait
   1 O,O;"Input Entry No.  (0
   1 O,O;"Enter code number (=1
   1 O,O;          "
   1 Maximum number of Data items is 255.(see line 930)
   1 Max. length of an item  is ten letters.
   1 MUSIFILE  
   1 MUSIC FILE
   1 MENU) ";b$:
   1 Line 930 MUST contain the total number of DATA items, as ""p"".  (After altering,
   1 I,O;"Enter a code number  (1 digit)":
   1 FILE COMPLETE
   1 EMPSTON E 
   1 Don't forget to save   program with the new Data!
   1 DO NOT Delete any itemsfrom 'DATAs'if you have a pre-
   1 D*"MUSIF.INF"
   1 D*"CONTENTS"
   1 Created with Ramsoft MakeTZX
   1 By Jim Hossack
   1 After alterations,enter"RUN 220"
   1 ALBENIZ   BACH      BEETHOVEN BERLIOZ   BIZET     BRAHMS    CHOPIN    DEBUSSY   DELIUS    DVORAK    ELGAR     FAURE     GLUCK     GOUNOD    HANDEL    HAYDN     HOLST     JANACEK   IRELAND   LISZT     MAHLER    MENDELSHONMOZART    NIELSEN   RACHMANINVRAVEL     ROSSINI   SAINTSAENSSCHUBERT  SCHUMANN  SHOSTKOVIZSIBELIUS  SMETANA   STRAUSS   STRAVINSKITCHAIKOVSKVERDI     VIVALDI   WAGNER    WEBER     FRANCK    WALDTEUFELOPERATIC  BARTOK    POPULAR   LIGHT     JAZZ      ROCK      TRADITNL  FOLK      GLAZONOV  HINDEMITH 
   1 ;t+I;"   ";a$(g)
   1 ;A$(G);" ";Y$;" ";X$;"  ";T$;E
   1 ;"Vinyl L.P.No."
   1 ;"To send list to printer,press P.(To return, press any other key)"
   1 ;"To return to Menu, enter 0"''"(To continue search,press Space)"
   1 ;"Title: "
   1 ;"Enter C,T or V";f$:
   1 ;"Composer:";
   1 ;"Composer: "
   1 ;"Artist:"
   1 63998+256*
   1 60<00*00002
   1 35794+256*
   1 23638-148":
   1 23637+256*
   1 (Alter or add to the 'Data' in  lines 950, etc.  Also NOTE the
   1 '"END OF LIST":
   1 '"(Has to be done just once, afterloading program or altering list"
   1 "SMETANA","STRAUSS","STRAVINSKI","TCHAIKOVSK","VERDI","VIVALDI","WAGNER","WEBER","FRANCK","WALDTEUFEL","OPERATIC","BARTOK","POPULAR","LIGHT","JAZZ","ROCK","TRADITNL","FOLK","GLAZONOV","HINDEMITH"
   1 "Please wait, while list is read       into memory."'''"     (Approx. 20 secs.)"
   1 "JANACEK","IRELAND","LISZT","MAHLER","MENDELSHON","MOZART","NIELSEN","RACHMANINV","RAVEL","ROSSINI","SAINTSAENS","SCHUBERT","SCHUMANN","SHOSTKOVIZ","SIBELIUS"
   1 "Enter required No. ";r
   1 "Enter name of Artist";b$:
   1 "Enter a reference No. for lp,    disk,or tape (
   1 "Enter Title";b$:
   1 "Enter Title - (Max.19 letters)";l$:
   1 "Enter No. of entry to be altered";k:
   1 "Enter Composer's name";b$
   1 "Enter Composer's name (OR 0
   1 "Enter Artist's name - (max.10
   1 "ERROR - No such entry":
   1 "ERROR - Check composer's name":
   1 "ERROR - Check Composer's name       against list":
   1 "Do you want to see composer list   (Y or N)?":
   1 "Do you want to alter list?        (Y or N).":
   1 "Composer   Title                Performer   Library Reference No.":
   1 "BAUD RATE? ";BD:
   1 "ALBENIZ","BACH","BEETHOVEN","BERLIOZ","BIZET","BRAHMS","CHOPIN","DEBUSSY","DELIUS","DVORAK","ELGAR","FAURE","GLUCK","GOUNOD","HANDEL","HAYDN","HOLST"
   1 "A:MUSIFILE"
   1 "8";"STORAGE FORMAT.":
   1 "8";"No such entry":
   1 "8",I;"Artist: "
   1 "63998",O:
   1 "6";"Vinyl L.P. No.";
   1 "6";"Cassette No.";
   1 "6";"Cassette No."
   1 "5";"Compact Disk No.";
   1 "5";"(Press key)"
   1 "4";"entry must be re-typed."
   1 "4";"Is this OK? (Y or N)."
   1 "4";"Compact Disk No."
   1 "4",I;"(1) Print complete file"'''" (2) Print file of one composer"'''" (3) Print file of one artist";
   1 "35836"+a+j*
   1 "35826"+j*
   1 "35825"+j*
   1 "35824",d:
   1 "35824"+j*
   1 "35816"+b,
   1 "35794"+U*
   1 "35793",O:
   1 "35793"+U*
   1 "35792",O:
   1 "2";"Transferring to memory"
   1 "2";"To quit, enter 0"
   1 "2";"To change an entry, complete"''
   1 "2";"Saving Music File No.";
   1 "2";"Previous No. was"
   1 "2";"First entry in this format":
   1 "2";"---------------------------"
   1 "19";(j+I);
   1 "14";"~~~~";
   1 "13";a$(g);
   1 "12";a$(n):
   1 "12"+b;b$(b):
   1 "12"+a;a$(a):
   1 "11";"~~~~~~~~~~"'
   1 "10";"Please wait":
   1 "10";"MENU = 
   1 "  'Break' program and make
   1 "  ";y$;" ";x$;"   ";t$;e
   1  (Vinyl l.p.)";
   1  (Tape cassette)"''
   1  (Compact disk)"''
   1  'REM's in lines 900 to 940)"
   1   Search by Title"''
   1   Search by Composer"''
   1   Search by Artist"''
   1   Save file"
   1   Print File"
   1   New entry";
   1   Load file";
   1   Display B"''
   1   Display A
   1   Alter entry";
   1        LOADING INFO FILE
   1        LOADING CONTENTS
   1         alterations."'''"   Then enter 'run 220'"
   1         AUTOCHARS PLUS !